home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: R-H-S / R-H-S Tools 27 (19xx)(Reiner Hobbold Software)(DE)(PD).zip / R-H-S Tools 27 (19xx)(Reiner Hobbold Software)(DE)(PD).adf / qm-lader (.txt) < prev    next >
AmigaBASIC Source Code  |  1996-12-24  |  1KB  |  39 lines
  1. SCREEN 1,640,200,4,2
  2. WINDOW 1," Quizmaster  V2.0                                                       Loader",,0,1
  3. PALETTE 0,0,0,0:FOR i=1 TO 0 STEP-0.005:PALETTE 1,i,i,i:NEXT i
  4. PALETTE 15,0.3,0,0:PALETTE 14,0.6,0,0:PALETTE 13,1,0,0
  5. PALETTE 12,0,0.3,0:PALETTE 11,0,0.6,0:PALETTE 10,0,1,0
  6. PALETTE 9,0,0,0.4:PALETTE 8,0,0,0.6:PALETTE 7,0,0,1
  7. PALETTE 6,0.3,0.3,0:PALETTE 5,0.6,0.6,0:PALETTE 4,1,1,0
  8. PALETTE 2,0,0,0:PALETTE 3,1,1,0.5
  9.  
  10. LINE (0,1)-(640,5),15,b:LINE (0,2)-(640,4),14,b:LINE (0,3)-(640,3),13
  11. LINE (0,7)-(640,11),12,b:LINE (0,8)-(640,10),11,b:LINE (0,9)-(640,9),10
  12. LINE (0,11)-(640,15),9,b:LINE (0,12)-(640,14),8,b:LINE (0,13)-(640,13),7
  13.  
  14. LOCATE 4,28:COLOR 2
  15. PRINT "Quizmaster Version 2.0":PRINT:PRINT
  16. PRINT "        Geschrieben von F. Zöllner für den Kickstart Public Domain-Pool"
  17. PRINT 
  18. PRINT "                          Viel Spaß beim Spielen !¡!"
  19.  
  20. LINE (0,81)-(640,85),9,b:LINE (0,82)-(640,84),8,b:LINE (0,83)-(640,83),7
  21. LINE (0,87)-(640,91),12,b:LINE (0,88)-(640,90),11,b:LINE (0,89)-(640,89),10
  22. LINE (0,91)-(640,95),15,b:LINE (0,92)-(640,94),14,b:LINE (0,93)-(640,93),13
  23.  
  24. FOR i=1 TO 1000:NEXT i
  25. FOR i=0 TO 1 STEP+0.007:PALETTE 2,i,i,i:NEXT i
  26. FOR i=1 TO 3000:NEXT i
  27.  
  28. PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  29. COLOR 3:PRINT "                 Bitte warten Sie - Das Programm wird geladen..."
  30. LINE (0,120)-(640,124),6,b:LINE (0,121)-(640,123),5,b
  31. LINE (0,122)-(640,122),4
  32. LINE (0,138)-(640,142),6,b:LINE (0,139)-(640,141),5,b
  33. LINE (0,140)-(640,140),4
  34. FOR i=1 TO 1500
  35. a$=INKEY$:IF a$<>"" THEN Loop
  36. NEXT i
  37. Loop:
  38. LOAD ":Main",r
  39.